home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Splines.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  9.1 KB  |  19 lines  |  [TEXT/.Ob4]
  1. ¯6ñ 
  2. ˇÃ–≤Â3XÓêSplinesÇeXK¬ÿ˙£^∏wÉMakeOpenKMakeClosedXNew¬ÑÖ;‚ÜDisplay6e∏uFiles$Ù…/Printer2ˆÊÃOberon2ˆßæTexts;‚WêFonts;ı‰ƒViewers3Pé¥Graphics2ılxModules3PÕ¬GraphicFramesÜ ˇ¥ˇˇ™ˇ{ˇ>ˇrˇˇ/ˇ>˛ëˇ˛äˇ<˝òˇ˝ëˇ=¸Bˇˇ˘í
  3. ˚
  4. ˚(˙„˙´˙… ˙d
  5. ˙O
  6. ˙D˘«
  7. ˘√
  8. ˘æ˘Å˘{˘u    ˘o˘i˘c
  9. ˘]˘WáNewSplines@@@@@@@@?ÄC0ÄC0?Ä@@@@?Ä?Ä@@@?Ä@@?Ä@@@@?Ä@@@?Ä?ÄC0à|¶æ¡ˇÿêî!ˇò;·8êA;√;§;Ö;f;G;  öàz,ÉAÊ ö´C‡ ö®ö3ˇˇ¿@¯\398~8ù ö πW%<|⁄*®Ê|ß‚ ö πW(<}:B©ID| ⁄8‡99 ÄBˇ–HÄAC‡ˇ§Ä8Ä!|¶∫¡ˇÿO‡ |¶øAˇËêî!ˇ∞;·8êA;√;§;Ö;f;G ö©zúZ ö©öD{b8~8ù8º8€8‡99 ÄBˇ–KˇˇUÄAÄ Ä!|¶ªAˇËO‡ |¶æ·ˇ‹9Åˇ¿Hêî!ˇÄ;·8êA;√;§;e;Ü;';Hˇ‡ê√¬ˇ»8~8ù¿;¿[Ïa∫¿õÏ£'∫¿€ ÏÂ7∫˝éˇ¿Lˇ‡L…"ˇ¿˝I8*ŸB¸E鮢¡y¡ôÌ´g∫¿Ï-∫¿Y Ïa∫¸Äéˇ¿Lˇ‡L»¢ˇ¿¸≈*ÿ¬¸%鮬8‡ÄBˇ–HÄA¿‚ˇºÔfi8*ˇû¯A¸ˇdÄPÄ!9Åˇ¿H|¶∫·ˇ‹O‡ ø!ˇ‰î!ˇ†;·8;√;§;Ö;f;G; |ô–@‰@ πW#:0ôˇˇ §TÖ:0Ÿˇˇ ¶T«:},.};<.}[.ÌhR|}{.39C‡ˇ¿3:ˇˇ πW(: πW):}õD.}æL.Ï h$|E./@˘T39ˇˇ πW*: πW+:1ô ¨UÉ: πW$:|=\.|[.|{$.Ïź πW%:|æ,.σ($|€U.C‡ˇ¨Ä!ª!ˇ‰O‡ |¶øAˇË9Åˇ–Hêî!˛†;·8êA;√;§;Ö;f¿˛¡Ì'@(¡Bˇ∏ÌjH$—\¡Çˇ¥¡ø\Ï r– ¿?\–?¨¿]¿}ÏÇ(¿¢ˇ∞σr¿ˇ\ÌÚ¡?\ÔËr”¸;@0€ˇˇö0@¸ ∫WG:}:1: ©U*: ∫WK:}^T.}~\.ÌäX(¡¢ˇ¨Ï
  10. `$–\ ∫WL:|b0öˇˇ §TÖ:|fl* ∫WG:}:¿&¨¿H\Ïa*¿Çˇ®Ï§Ú–£ ∫WI:}_J ∫WK:}üZ¿Ã\– ¨0z £Td: ∫WE:|˝$.},.Ì'@(¡Bˇ§Ìi≤ ∫WF:|ˇ2¡á\Ì´2 ∫WH:}?B¿    \ÔÕ2 ∫WJ:Ï?*|<U.ˇ‡ê3ZC‡˛Ù ∫WK:}üZ0zˇˇ £Td:|ø"¿Bˇ†¿e\ÏÇÚ–å ∫WF:¸5.;@0˚ˇˇ|ö8@‰Ä ∫WH:}?B ∫WJ:}R¿©¨¿À ÏÂ0$–Ȩ1ö ¨UÉ:|ü ∫WE:|fl* ∫WG:}:1: ©U*:}R¡¨¡(\¡K ÌhR|—d 3ZC‡ˇ|8 8ü\8ø¨8‹8˚Kˇ¸ùÄ0Ä!9Åˇ–H|¶ªAˇËO‡ |¶øAˇË9Åˇ¿Hêî!˛8;·8êA;√;§;Ö;f1õˇˇ ¨UÉ:0õˇ˛ §TÖ:}û.}æ,.Ï h(¿"ˇúÔ°$0€ˇˇ ¶T«:1ˇ˛ ®U    :|]<.|}L.ÏÇ(¿¢ˇòσrÏÊrÔár¡¡>ÌHH(¡bˇîÌãP$—üd¡¢ˇê¿dÏ-Ë:–?¿_d–_¥¿}¿ùÏ£ (¿¬ˇåÏÂ≤¡dÌ'2¡_dÔÈ≤Ì|¯*—|¡Çˇà—ü;@1[ˇ˛P@¯ ∫WK:}üZ0z £Td: ∫WE:}æ$.|,.Ï-(¿BˇÑÏb$–ld ∫WF:|ˇ21ˇˇ ®U    :}_J ∫WK:}üZ¿ä¥¿¨dσ(*¿‚ˇÄÌ≤— ∫WC:|ü ∫WE:|fl*¡&d—$¥0˙ ßTË: ∫WI:}]D.}}L.ÌäX(¡¢ˇ|Ï r ∫WJ:}R¿+dÏ@r ∫WL:|b¿cdÔ¬Ú ∫WD:Ïü*|ú%.ˇ‡ê ∫WE:|fl*¿¢ˇx–¶3ZC‡˛‡ ∫WG:}:1:ˇˇ ©U*:}R¿¬ˇt¿ÎdÌÈ˙— ∫WL:Ì?‡*}<e. ∫WC:|ü¡Bˇp—D;@0ªˇ˛ö(@¸Ä ∫WF:|ˇ2 ∫WH:}?B¡g¥¡âÌ´`$—ߥ1Z ™UK:}üZ ∫WC:|ü ∫WE:|fl*0˙ ßTË:}?B¿¥¿&d¿IÏ`|–l3ZC‡ˇ|88üd8ø¥8‹0˚ˇˇKˇ˘q88üd8ø¥8fl0˚ˇˇKˇ˘Y ∫WJ:¿ú|ºT.σ(* ∫WK:}üZ¿ˇ¡ Ì'@*0z £Td:}^$.ÌiP* ∫WE:}û,.Ì´`(ÔÊh$;@0€ˇˇ|ö0@‰0 ∫WG: ∫WH:}?B¿    |<<.Ï_<|\=.3ZC‡ˇÃ ∫WJ:¿|||U.ÄòÄ!9Åˇ¿H|¶ªAˇËO‡ |¶øˇ‡9Åˇ¿Hêî!˙–;·8êA;√;§;Ö;f;G ö©z}ã‚mÉÄêbˇl»Çˇh»¢ˇ`¸ƒ((–fl ö®öD|§⁄l¶Äê¬ˇl»‚ˇh…ˇ`˝'@(—?∞¡Bˇ\—_P ö´; ¿@¯ πW':}: ö πW)<}ZJ©j}ã‚mÉÄêbˇl…bˇh…ǡ`˝´`(—® πW$:|ø"0Ÿˇˇ ¶T«:}:¿¿(Ô‡( πW):}_J ö πW+<}öZ®lD|É⁄lÖÄê¢ˇl»Bˇh»bˇ`¸Ç(–ä∞ πW&:|ˇ21ˇˇ ®U    :}_J¿ß∞¿ ∞Ô≈0( πW+:}üZ¸‡˙˝ÚÌ'@*0yˇˇ £Td:|ø"¡EPÌiP*—lP39C‡˛¯ öà⁄/ÜA˛08P8ü8ø`8ÿKˇ˜Õ8P8ü∞8ø8ÿKˇ˜πC‡,8P8ü8ø`8ÿKˇ˙58P8ü∞8ø8ÿKˇ˙!; 0¯ˇˇ|ô8@‰|1 ®U    :}_J πW+:}üZ¡äP¡¨PÏ h(¿"ˇXÔ°$0y £Td:|ø" πW&:|ˇ2¿E¿gÏÇ(Ô‰r π}?BÏΩr πW*:}R1ô ¨UÉ:|ü¿À`¿‰`Ì8*¡"ˇTÌIG¸Ìe≤—i† ππ|fl* πW':}:¡ÇˇL¡®`Ï r¿"ˇPÏA¯19 ©U*:}R¿k`ÏÇ(ÏΩ2–¶§ πô|b πW$:|ø"¿≈`–√® πŸ|ˇ2 πW(:}?B¿È–Á¨ πY}R πW,:|b¡P— ∞0ô §TÖ:|fl* πW':}:¡&∞¡H∞ÌiP(Ô›Ú π9}_JÌùr πW+:}üZ0y £Td:|ø"¡¨¿Ï-*¿BˇHÏbºÏåÚ–ä0 πŸ|ˇ2 πW(:}?B¿¢ˇ@¿…ÏÂ≤¡ˇDÌ(?∏1Y ™UK:}üZ¡LÌiP(ÌùÚ—á4 πy|ü πW%:|fl*¡¶—§8 π˘}: πW):}_J¿
  11. ∞–< πy}üZ πW#:|ü¿$P–,@39C‡˝Ä ππ|fl* πW':}:¿HP–F∞ π9}_J πW+:}üZ¿lP–j@; 0xˇˇ@¯h8~8ù ππ|fl*8¶†Ä¬ˇ¯ π˘}:8Ë0Åˇ¯19 ©I}R πô}?b¿ã∞¿©∞Ï$((KˇÚm39C‡ˇîÄÄ!9Åˇ¿H|¶ªˇ‡O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Äbˇ¸ÄBˇÃHÄA;√ ûÅBë^ ÅbˇÏìÀÄÄ!|¶ª¡ˇ¯O‡ ø°ˇÙî!ˇ∏;·8;√;§ ùÅùˇ¸Äbˇ¸lÄûˇ¸Ä¢ˇ¸ÄƒˇÙf( û9]ˇ¸9~8‡ |ȶÄÎÅ êÍÑÎï
  12. Å BˇêÍë
  13. 9k9J |Î$™|Í%™Ä!ª°ˇÙO‡ |¶æ¡ˇÿêî!ˇê;·8êA;√;Ñ;•:¿ÅǡÙÄlˇÄùˇÙd û®æ®‹e2 û®˛©GB û´> û´Ç‹ ñ©6 õH@¸h ñ}[ ©v|ãPAÂT ñ©ñ"`@¯D ñ|z¬®ñ
  14. ÑA˝0®º,Ö@Ê û™˛C‡™¸Äfiˇ¸Ä‚ˇ¸ÅˇÙh8©<
  15. /    @˙` ûâ^
  16. /äA˛8v8Ä8ª8⁄8˛KˇÔ    8v8ó8ª8⁄8˛Kˇ¯°8v8Ä8ª8⁄8˛KˇÔ•C‡ú©|
  17. ,ã@Ê 8v8Ä8ª8⁄8˛KˇÓ±C‡t©ú
  18. / @˙ 8v8Ä8ª8⁄8˛KˇÓâC‡L8v8Ä8ª8⁄8˛KˇÓm8v8Ä8ª8⁄8˛Kˇ¯8v8Ä8ª8⁄8˛KˇÔ    Ä@Ä!|¶∫¡ˇÿO‡ øAˇËî!ˇ®;·8;√;§;Ö ûÄ~ˇ¸Äǡ¸Ä£ˇÙe  û®fi®˛f: ûÅˇ¸Å"ˇ¸ÅHˇÙjH û©~©ûDKb0{ˇ¸ÉËA˝00õ|ù AÂ$0∫ˇ¸‡A˘0⁄ú0A˝ 8`C‡8`C‡‡Ä!ªAˇËO‡ øÅˇî!ˇ∏;·8;√;Ñ;•Ä‚ˇÏÅˇÿÅ=ˇÙ|â@@Ê  ûÅBˇÏÅjˇÿÅùˇÙlX®|∞~Ä!ªÅˇO‡ |¶øˇ‡êî!ˇ†;·8êA;√;Ñ;•;F;g; ;8|8ù8øÄBˇ‘HÄAÄûˇ¸Ä¢ˇ¸ÄƒˇÙf( û®ˇ1ˇˇ}    p±>8|8ù8øÄBˇ‘HÄA ûâ_}Kt/ }Ä&UÉfl˛ò~ û®ûô @¸48|8ù û πW%<|fi*8¶ÄBˇ‘KˇÏ›ÄA39C‡ˇƒ û®˛|ò8@‰48|8ù û ∏W<}>B8©DÄBˇ‘KˇÏMÄA3C‡ˇƒÄ0Ä!|¶ªˇ‡O‡ |¶æ·ˇ‹êî!ˇò;·8êA;√;§;e;Ü;';H;:‡Å^ˇ¸Åbˇ¸ÅäˇÙlX8{8ú8Ω8fiÄBˇÏHÄA8{8ú û®æT¶:0¶ÄBˇ‘HÄA ûà˛/A˙ 8{8ú8†ÄBˇ‘HÄAC‡8{8ú8†ÄBˇ‘KˇÎAÄA û©ò@@¸48{8ú û ∏W    <}^J®™ÄBˇ‘KˇÎiÄA3C‡ˇƒ û©~|óX@‰48{8ú û ∑VÏ<|æb®•DÄBˇ‘KˇÍÌÄA2˜C‡ˇƒÄ8Ä!|¶∫·ˇ‹O‡ |¶øˇ‡êî!ˇP;·8êA;√;§;ÖÄfiˇ¸Ä‚ˇ¸ÅˇÙh8 ûâ>/    A˙ ;C‡; û´>;`õ»@¸\ ªWj<}R û ªWl<|~b®ÉTÖ:∞´ ªWf<|ˇ2 û ªWh<}>B©IDUK:±g03{C‡ˇ§ û©ûUÉ:|cÍ û®ûTÖ:|Ö‚8π8ÿ8ˇ99?09@ÄBˇÿHÄAÄÄÄ!|¶ªˇ‡O‡ |¶æÅˇ–|¿&êê¡î!ˇx;·8êA,ÉNf0B:¿:†:ÄÄBˇÙHÄA:£/A˙< ïÄı0/áA˛,8uÄBˇÙHÄAÄbˇ¸ÄBˇÃKˇ’ÄA:√ ï´’, ï´u.;æ;[ ñ≥÷ ñ≥vD ïÇï0;:‡,îAÊÑ/@¯| î´î ñ ∑VË<}6B≥â î´4 ñ ∑VÍ<}vR≥+Dú@¸;‹|ù‡@‰;ºÿ@¯;yö»@¸;Y2˜ îÇîC‡ˇ||ò∏@‰D ñ ∏W <|vb®É|æ ∞£ ñ ∏W<|ˆ2©D};@±'D3C‡ˇºAÛ@ ñ ∑VÍ<}vR ñ©ñ±ã ñ ∑V„<|ñ ñ®∂D∞§D2˜ ñ ï®’$|Ê∞ˆ ñ ï©&}(ÿ±6 ñ}^Ë1j±v ñ}õ–0l∞v ñ|Ä&TÖ߲ò∂ ñ≤ˆ ñĬˇ‹àÊt|Ët± ñÅ"ë6 ïÄu8ñÄBˇÏHÄA8uÄBˇÙHÄA8u8ñÄBˇÙHÄAÄXÅ_TÄ!|¶}OÒ ∫Åˇ–O‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8`Kˇ˝EÄÄ!|¶ª·ˇ¸O‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8`Kˇ˝ÄÄ!|¶ª·ˇ¸O‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÅbˇÏÄkˇËÄBˇÃKˇÈÄAêbÅÇ å8Ãˇ¸8‚ˇ8ÄgÄáêfêÜÅ àÅǡ4ëàÄb É<Ä8§ê£ êC$Ĭ Ü<‡9ë(êF,Å" â=@9jëi0êI4ÅÇ å<`8Éêå@êLDÄ¢ Ö<¿8ÊêÂ8êE<Å à= 9IëHHêHLÅb ã=Ä8lêkPêKTÄÇ Ñ<†8≈êƒXêD\ÄÄ!|¶ª·ˇ¸O‡ âlˇ¸ˇ‰SplineDesc ˇ¯ˇˇˇˇPolyä !">Aù†£≠Ø∏∫Ωø≈Ù¯˙    $).59@GJRUX\ÄÉãé¥∏∫¬Δ…“’€›‰ÈÓÛ˙˛     #'=BIMVXayÇçíïñ°•´ÆØ∫æƒÀ”ÒÙ˝ %,/47<?EHOSWadmtw|Ñáéëñô§©Ø≤Œ›‡‰Â "*15}ÅÇÜäãüÆ≤Œœ⁄·ÁËÒ˜¯!(9?@IOPjkrwz{ÅÑÖçë∂√≈…ÀÕ’◊ÿ‹fiflıˆ¸˝
  19. 
  20. #'+-25rz~Ñäêñú¢®ã¯308mark‚{col
  21. ·{fÊ{iÁ{n
  22. Â{spË{x„{x0È{y‰{y0¯”8markOrg‚{col
  23. ·{f
  24. Â{sp„{x‰{y¯í»8ShowPoly‚{col
  25. ·{f†{lim°{tÁ{xË{y¯Œ(8SolveTriDiagÊ{iÂ{n¯Û®8OpenSpline†{d1°{d2Â{i‰{n¯Ïê8ClosedSpline†{d1°{d2£{dn¢{hnÂ{i‰{n¯¬¯    8CompSpline‚{col¢{ds†{dx°{dy
  26. ·{fÊ{iÁ{n
  27. Â{sp„{x0‰{y0¯ÿ8New
  28. ·{sp¯˙8Copy
  29. ‚{dst
  30. ·{src¯˜88DrawË{col
  31. È{fÁ{h
  32. ·{objÊ{w‰{xÂ{y¯£     8Selectable
  33. ·{obj‚{x‰{x0„{yÂ{y0¯∏    8Handle
  34. ·{obj¯Ü
  35. (8ReadÊ{iÁ{jlen
  36. ·{objs¯fi
  37. 08Write‚{cnoÁ{iË{j
  38. ·{obj¯£ ¯8Print‰{iÂ{jÊ{n
  39. ·{objÁ{open‚{x„{y¯À –8MakeSpline
  40. Í{G
  41. Î{LÁ{iË{nå{open
  42. È{spl·{x0‚{x1„{x2‰{y0Â{y1Ê{y2¯ÿ 8MakeOpen¯Â 8MakeClosed¯≤
  43. 8$$
  44. method